home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON06 / ACT06B / COMMON6B.cst / 00042_state click.ls < prev    next >
Encoding:
Text File  |  2003-05-01  |  391 b   |  17 lines
  1. on mouseup me
  2.   puppetSprite (the spriteNum of me), true
  3.   theStateName = member(the member of sprite(the spriteNum of me)).name
  4.   set the member of sprite(the spriteNum of me) to member theStateName of castLib "clickablesSwitch"
  5.   
  6.   updatestage
  7.   
  8.   puppetSound 1, theStateName&(",prompt")
  9.   
  10.   repeat while soundbusy(1)
  11.     --nothing
  12.   end repeat
  13.   
  14.   go to frame theStateName
  15.   pass
  16. end
  17.